home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_34 / multimat / multimat.bas (.txt)
Atari STOS Basic  |  1987-04-21  |  79KB  |  188 lines
  1. 10 REM Multimat Program
  2. 100 GOSUB
  3. 1000 ANIM
  4. 1010 ANIM
  5. 1020 FLASH
  6. 1030 RETURN
  7. 1040 REM -----------------------RESET MAIN SCREEN----------------------------
  8. 1050 COLOUR
  9. 1060 SCREEN COPY
  10. 1070 SCREEN COPY
  11. 1080 RETURN
  12. 1090 REM ----------------------END OF TEST MESSAGE---------------------------
  13. 110 GOSUB
  14. 1100 HIDE
  15. 1110 LOCATE
  16. 1120 LOCATE
  17. 1130 LOCATE
  18. 1140 REPEAT
  19. 1150 UNTIL
  20. 1160 RETURN
  21. 1170 REM ------------------------OPTION SCREEN------------------------------
  22. 1180 MODE
  23. 1190 GET PALETTE
  24. 120 REM -------------------------MAIN ROUTINE----------------------------------
  25. 1200 SCREEN COPY
  26. 1210 SCREEN COPY
  27. 1220 VARNAME
  28. 1230 GOSUB
  29. 1240 PEN
  30. 1250 REPEAT
  31. 1260 VARNAME
  32. 1270 UNTIL
  33. 1280 VARNAME
  34. 1290 IF
  35. 130 MODE
  36. 1300 IF
  37. 1310 IF
  38. 1320 IF
  39. 1330 IF
  40. 1340 IF
  41. 1350 LOCATE
  42. 1360 LOCATE
  43. 1370 LOCATE
  44. 1380 LOCATE
  45. 1390 LOCATE
  46. 140 WINDOPEN
  47. 1400 WAIT
  48. 1410 IF
  49. 1420 IF
  50. 1430 IF
  51. 1440 IF
  52. 1450 MUSIC
  53. 1460 RETURN
  54. 1470 REM -------------------SET ZONES FOR OPTION SCREEN-----------------------
  55. 1480 LIMIT MOUSE
  56. 1490 SET ZONE
  57. 150 CURS
  58. 1500 SET ZONE
  59. 1510 SET ZONE
  60. 1520 SET ZONE
  61. 1530 SET ZONE
  62. 1540 SET ZONE
  63. 1550 SET ZONE
  64. 1560 SET ZONE
  65. 1570 SET ZONE
  66. 1580 SET ZONE
  67. 1590 SET ZONE
  68. 160 GET PALETTE
  69. 1600 SET ZONE
  70. 1610 SET ZONE
  71. 1620 SET ZONE
  72. 1630 SET ZONE
  73. 1640 SET ZONE
  74. 1650 SET ZONE
  75. 1660 CHANGE MOUSE
  76. 1670 RETURN
  77. 1680 REM -------------------------RANDOM ORDER-------------------------------
  78. 1690 DIM
  79. 170 GOSUB
  80. 1700 FOR
  81. 1710 REPEAT
  82. 1720 VARNAME
  83. 1730 UNTIL
  84. 1740 VARNAME
  85. 1750 NEXT
  86. 1760 RETURN
  87. 1770 REM --------------------INITIALISE ARRAY & VARIABLES--------------------
  88. 1780 DIM
  89. 1790 FOR
  90. 180 SPRITE
  91. 1800 VARNAME
  92. 1810 NEXT
  93. 1820 FOR
  94. 1830 VARNAME
  95. 1840 NEXT
  96. 1850 FOR
  97. 1860 VARNAME
  98. 1870 VARNAME
  99. 1880 NEXT
  100. 1890 VARNAME
  101. 190 SPRITE
  102. 1900 RETURN
  103. 20 REM by Jim Flewker August 1989
  104. 200 ANIM
  105. 210 ANIM
  106. 220 ANIM
  107. 230 IF
  108. 240 PAPER
  109. 250 PEN
  110. 260 VARNAME
  111. 270 REPEAT
  112. 280 GOSUB
  113. 290 UNTIL
  114. 30 REM Version for New Atari User
  115. 300 IF
  116. 310 GOSUB
  117. 320 FLASH
  118. 330 IF
  119. 340 MUSIC
  120. 350 FADE
  121. 360 REM --------------READ SCREEN KEYPAD & DISPLAY USER INPUT------------------
  122. 370 VARNAME
  123. 380 REPEAT
  124. 390 REPEAT
  125. 400 VARNAME
  126. 410 UNTIL
  127. 420 IF
  128. 430 VARNAME
  129. 440 IF
  130. 450 IF
  131. 460 IF
  132. 470 IF
  133. 480 LOCATE
  134. 490 VARNAME
  135. 500 UNTIL
  136. 510 RETURN
  137. 520 REM -----------------SET ZONES FOR SCREEN KEYPAD--------------------------
  138. 530 SET ZONE
  139. 540 SET ZONE
  140. 550 SET ZONE
  141. 560 SET ZONE
  142. 570 SET ZONE
  143. 580 SET ZONE
  144. 590 SET ZONE
  145. 60 REM ------------------------------------------------------------------------
  146. 600 SET ZONE
  147. 610 SET ZONE
  148. 620 SET ZONE
  149. 630 SET ZONE
  150. 640 SET ZONE
  151. 650 LIMIT MOUSE
  152. 660 CHANGE MOUSE
  153. 670 RETURN
  154. 680 REM ----------POSE A QUESTION, TEST ANSWER, CLEAR NUMBER BOXES------------
  155. 690 IF
  156. 70 KEY
  157. 700 INC
  158. 710 IF
  159. 720 VARNAME
  160. 730 LOCATE
  161. 740 LOCATE
  162. 750 IF
  163. 760 IF
  164. 770 LOCATE
  165. 780 LOCATE
  166. 790 LOCATE
  167. 80 KEY SPEED
  168. 800 RETURN
  169. 810 REM ----------------ANSWER RIGHT ('LED' LIGHTS UP)-------------------------
  170. 820 INC
  171. 830 VARNAME
  172. 840 INK
  173. 850 BAR
  174. 860 VOLUME
  175. 870 FOR
  176. 880 IF
  177. 890 RETURN
  178. 900 REM -------------------------ANSWER WRONG--------------------------------
  179. 910 BELL
  180. 920 LOCATE
  181. 930 PRINT
  182. 940 WAIT
  183. 950 BELL
  184. 960 WAIT
  185. 970 RETURN
  186. 980 REM ----------------------ALL 12 ANSWERS RIGHT---------------------------
  187. 990 ANIM
  188.